home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Commodities / BlocNotes / shownote.rexx < prev   
OS/2 REXX Batch file  |  1996-09-26  |  408b  |  25 lines
  1. /*ShowNote.rexx*/
  2.  
  3. IF POS('blocnotes.rexx' , SHOW('Ports'))=0 THEN do
  4.    call delay(150)
  5.    IF POS('blocnotes.rexx' , SHOW('Ports'))=0 THEN exit
  6. end
  7.  
  8.  
  9. address 'blocnotes.rexx'
  10. options results
  11.  
  12. if words(Arg(1))>0 then do
  13.    if Arg(1)='?' then do
  14.       say 'USAGE: SHOWNOTE <pattern>'
  15.       exit
  16.    end
  17.    text=Arg(1)
  18.    SEARCH text
  19.    id=result
  20.    if id=0 then do
  21.       say 'Not found.'
  22.    end
  23.    SHOW id
  24. end
  25.